home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PsL Monthly 1993 December
/
PSL Monthly Shareware CD-ROM (December 1993).iso
/
prgmming
/
dos
/
pascal
/
lanos.exe
/
NETTEST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1992-01-01
|
3KB
|
107 lines
Program TstNet;
USES CRT,LANOS,NCB;
VAR Buffer : Array[00..255] of CHAR;
Device : String[16];
Name : String[16];
Path : String;
Adapter: Byte;
Index : Word;
DevType: Byte;
Account: user_account;
Message: message_buffer;
Queue : queue_entry;
Printer: PS;
Stream : logical_stream;
User : active_user_entry;
Resource : String;
ACL : Word;
_Time : Time_Block;
Amount : DWORD;
Error : Word;
BEGIN
ClrScr;
WriteLn;
WriteLn('<< DEMO-PROGRAM for LANOS-Unit >>');
WriteLn('=================================');
WriteLn;
IF NETBIOS_INSTALLED THEN
WriteLn('NETBIOS installed')
ELSE
WriteLn('NETBIOS NOT installed');
WriteLn; TextColor(LightBlue);
WriteLn('LANTASTIC specific NetWare');
WriteLn; TextColor(White);
IF REDIR_INSTALLED THEN
WriteLn('REDIR installed') ELSE
WriteLn('REDIR NOT installed');
IF SUPER_REDIR_INSTALLED THEN
WriteLn('REDIR has popup-capability');
IF SERVER_INSTALLED THEN
WriteLn('SERVER installed') ELSE
WriteLn('SERVER NOT installed');
IF LANPUP_INSTALLED THEN
WriteLn('LANPUP installed') ELSE
WriteLn('LANPUP NOT installed');
WriteLn;
IF NOS_Check2AInterface THEN
WriteLn('Alternate 2A Interface detected');
WriteLn;
IF REDIR_INSTALLED THEN
BEGIN
WriteLn('Major LANOS ID : ',LANOS_Maj);
WriteLn('Minor LANOS ID : ',LANOS_Min);
WriteLn;
WriteLn('Machine Name is : ',GetMachineName);
WriteLn;
REPEAT UNTIL KeyPressed;
ClrScr;
WriteLn('Listing redirected devices...');
WriteLn;
WriteLn('Type Device Network-Path');
FOR I := 1 TO 79 DO Write('─'); WriteLn;
Index := 0;
REPEAT
NOSGetRedirDevice(Index,Device,Path,DevType);
IF (NOSErrNo <> 18) THEN
BEGIN
CASE DevType OF
04 : Write('Disk ');
03 : Write('Printer ');
END;
Write(Device); GotoXY(20,Wherey);WriteLn(Path);
END;
Inc(Index);
UNTIL (NOSErrNo = 18);
WriteLn;
WriteLn('This DEMO only uses MS-DOS compatible Network-Calls !!!');
WriteLn('A LANTASTIC specific DEMO depends on your machine-configuration.');
WriteLn;
END ELSE
BEGIN
WriteLn('Sorry ! It''s necessary that a redirector is loaded !');
WriteLn(' Analyzing terminated...');
Halt($01);
END;
END.